home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Startmenu Items 2.xpl < prev    next >
Text File  |  1999-09-16  |  3KB  |  86 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Start menu\Visible Items"
  5. "NAME"="Visible Items #2"
  6. "VERSION"="1.41"
  7. "LANGUAGE"="VBScript"
  8. "AUTHOR"="Xteq Systems"
  9. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  10. "TEXT 1"="Show user-created folders in Start menu"
  11. "TEXT 2"="Show "Find..." in Start menu"
  12. "TEXT 3"="Show "Log Off <Username>" in Start menu"
  13. "TEXT 4"="Show common groups in Start->Programs"
  14. "DESCRIPTION 1"="Use this plug-in to show or hide some of the items in the Start menu."
  15. "DESCRIPTION 2"="User-created folder are folders that are created in the start menu folder (e.g. "C:\Windows\Startmenu") and are normally displayed at the top of "Programs"."
  16. "DESCRIPTION 3"="Context menus in the Start menu are only available if you are using Windows 98 or Internet Explorer 4 with ActiveDesktop."
  17. "DESCRIPTION 4"="NOTE #1: Disabling "Find..." will also disable the context menu (Right-click) of the START button."
  18. "DESCRIPTION 5"="NOTE #2: Show "Log Off <Username>" might not work if you are using Windows 98 with IE 5 installed."
  19. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  20. "COMMENT 2"=" "
  21. "COMMENT 3"="Thanks to Jon-Roar Selenius (jseleniu@online.no) for spotting the "Recent Documents always empty" bug."
  22. "COMMENT 4"="Thanks to CptSiskoX for the "Show Log Off" Win98 note."
  23. "COMMENT 5"="Thanks to Bill Hudacek (hudacek@us.ibm.com) for spotting the NoFind = NoRightMouse bug.
  24.  
  25. 'Declaration of some constants
  26. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  27.  
  28. 'Called when the Plugin is started
  29. SUB Plugin_Initialize
  30.  i=RegReadValue(sp&"NoStartMenuSubFolders") 
  31.  If IsEmpty(i) or i=0 then SetUIElement 1,true
  32.  
  33.  i=RegReadValue(sp&"NoFind") 
  34.  if IsEmpty(i) or i=0 then SetUIElement 2,true
  35.  
  36.  i=RegReadValue(sp&"NoLogOff") 'Binary
  37.  if IsEmpty(i) or i=0 then SetUIElement 3,true
  38.  
  39.  i=RegReadValue(sp&"NoCommonGroups") 
  40.  if IsEmpty(i) or i=0 then SetUIElement 4,true 
  41.  
  42. END SUB
  43.  
  44. 'Called when the Plugin should validate the Data the user has entered
  45. SUB Plugin_CheckData(ElementIndex)
  46. END SUB
  47.  
  48. 'Called when the Plugin should apply the changes
  49. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  50.  Call WriteIt(1,sp&"NoStartMenuSubFolders")
  51.  Call WriteIt(2,sp&"NoFind")
  52.  Call WriteIt(4,sp&"NoCommonGroups")
  53.  
  54.  b=GetUIElement(3)
  55.  if b=true then
  56.     s=RegReadValue(sp&"NoLogOff")
  57.     if IsEmpty(s)=false then
  58.        Call RegDeleteValue(sp&"NoLogOff")
  59.     end if
  60.  else
  61.   Call RegWriteValue(sp&"NoLogOff","01000000",3)
  62.  end if
  63.  
  64.  
  65.  
  66.  Call Logoff
  67. END SUB
  68.  
  69.  
  70. Sub WriteIt(ITM,PATH)
  71.   b=GetUIElement(ITM)
  72.   if b=true then
  73.      s=RegReadValue(PATH)
  74.      if IsEmpty(s)=false then
  75.         Call RegDeleteValue(Path)
  76.      end if
  77.   else
  78.     Call RegWriteValue(PATH,1,2)
  79.   end if
  80. End Sub
  81.  
  82.  
  83. 'Called when the Plugin is about to be removed from memory
  84. SUB Plugin_Terminate
  85. END SUB
  86.